These are just the events that call sub-routines later in the script.
1 select
2 when upper(event) = 'PARENT' | upper(event) = 'ROOT' then
3 call doparentroot
4
5 when event = 'Delete' then
6 call dodelete
7
8 when event = 'MakeDir' then
9 call domakedir
10
11 when event = 'reread' | event = 'ScanDir' then do
12 call delete('T:ArcDir.list'handle)
13 call arclist
14 end
15
16 when event = 'path' then
17 call dopath
Line:
1 Start of the Select...When conditional block.
2 - 3 Event is PARENT or ROOT, jump to doparentroot .
5 - 6 Event is Delete, jump to dodelete .
8 - 9 Event is MakeDir, jump to domakedir .
11 - 14 Event is reread or ScanDir, we delete the file containing the
contents of the archive, (for that handler), and call the arclist
routine to generate another.
16 - 17 User has typed a path in to the path string gadget, so we jump to
dopath .
|
